The Complete Work of Mahatma Gandhi/The Complete Work of Mahatma Gandhi-CD interactive.iso/pc/ganmac/eb.cst/00168_Script_vidvolume

Text File | 1999-05-31 | 2KB | 70 lines

on mouseUp
  --  Volume Control
  global gvolume,handcur, vlocH, vlocV, gxx, gwhere, pv
  set pv to 1
  set gwhere to the movieTime of sprite 6
  set gxx to the clickOn
  if gxx > 0 then
    global cspname
    set yy to chars(cspname,1,1)
    checkvol yy
    global gloson
    if (gloson=1) or (the visible of window "gloss"=TRUE) then
      set the memberNum of sprite 115 to the number of member (yy&"glos") of castLib "eb.cst"
      endNewMovie
    end if
    if the visible of sprite 106 = false then
      checkvol yy

      set mm to the name of member (the memberNum of sprite gxx) of castLib "eb.cst"
      set the memberNum of sprite gxx to the number of member ("r"&mm) of castLib "eb.cst"
      set the movierate of sprite 6 to 0
      set the visible of sprite 5 to false
      set vlocH to the locH of sprite 98
      set vlocV to the locV of sprite 98
      set the locH of sprite 98 to -100
      set the locV of sprite 98 to -100
      set the visible of sprite 98 to false
      updateStage
      set the visible of sprite 101 to false
      set the visible of sprite 102 to false
      set the visible of sprite 106 to true
      set the visible of sprite 107 to true
      set the visible of sprite 108 to true
      CHASPCURSOR handcur,106,108
      updateStage
    else
      set ii to the name of member (the memberNum of sprite gxx) of castLib "eb.cst"
      set mm to chars(ii,2,6)
      set the memberNum of sprite gxx to the number of member mm

      set the visible of sprite 5 to true
      set the visible of sprite 98 to true
      set the visible of sprite 101 to true
      set the visible of sprite 102 to true
      set wm to the name of member (the memberNum of sprite 101) of castLib "eb.cst"
      if wm = "play" then
        nothing
      else
        global pv
        set pv to 1
        go to frame "video"
        --        set xx to the movieTime of sprite 6
        --        set the movieTime of sprite 6 to -1
        --        updateStage
        --        set the movieTime of sprite 6 to xx
        --        set the movierate of sprite 6 to 1
      end if
      set the locH of sprite 98 to vlocH
      set the locV of sprite 98 to vlocV
      set the visible of sprite 106 to false
      set the visible of sprite 107 to false
      set the visible of sprite 108 to false
      CHASPCURSOR -1,106,108
      updateStage
    end if

  end if

end